10 POKE53281,10:POKE53280,0:POKE646,0:POKE53272,31
12 DV=PEEK(186):IFDV<8THENDV=8
20 :
30 REM  TITLE SCREEN
40 :
50 PRINT"[147][176][192][192][174]   [146][176][192][192][174]   [146][176][192][192][174]    [146][176][192][192][174]   [146][176][192][192][174]   [146][176][192][192][174]";
60 PRINT"[221]  [173][192][192][192][189]  [173][192][192][192][189]  [173][192][192][192][192][189]  [173][192][192][192][189]  [173][192][192][192][189]  [221]";
70 PRINT"[221]      [162] [146][162]    [176][178][178][174][176][174][176][174][176][174][144]               [221]";
80 PRINT"[173][174]        [146]    [221][221][173][189][221][221][173][219][219][189][144]              [176][189]";
90 PRINT" [146][221]     [190] [188][146]    [173][177][178][174][221][221] [221][221][144]               [221] [146]";
100 PRINT" [146][221]   [172][190]   [188][146][187]  [176][174][221][221][221][221][176][219][219][174][144]              [221] [146]";
110 PRINT"[176][189]    [188]   [146][190]   [173][177][177][189][173][189][173][189][173][189][144]              [173][174]";
120 PRINT"[221]         [146]    [176][178][178][174][176][178][178][174][176][174] [176][174][176][174][176][174][176][178][178][174][144]    [221]";
130 PRINT"[173][174]        [146]    [221][221][221][221][221][221][221][221][221][221] [221][221][221][173][179][221][221][221][173][189][144]   [176][189]";
140 PRINT" [146][221]   [172][190]   [188][146][187]  [221][171][177][189][221][171][179][221][221][221][221][221][221][221]  [221][173][177][178][174][144]   [221] [146]";
150 PRINT" [146][221]  [190]       [188][146] [221][221]  [221][221][221][221][221][221][221][221][221][221][171][174][221][176][174][221][221][144]   [221] [146]";
160 PRINT"[176][189]  [187]       [172][146] [173][189]  [173][189][173][189][173][177][177][177][189][173][189][173][189][173][177][177][189][144]   [173][174]";
170 PRINT"[221]                                      [221]";
180 PRINT"[173][174]     [176][178][178][174][176][174][176][174][176][178][178][174][176][178][178][174][176][178][178][174]    [162] [146][162][144]    [176][189]";
190 PRINT" [146][221]     [221][221][173][189][221][221][221][221][221][221][173][189][221][221][173][189][221][221][173][189]       [146][144]    [221] [146]";
200 PRINT" [146][221]     [221][221]  [221][171][179][221][221][171][192] [173][177][178][174][173][177][178][174]    [190] [188][146][144]    [221] [146]";
210 PRINT"[176][189]     [221][221][176][174][221][221][221][221][221][221][176][174][176][174][221][221][176][174][221][221]  [172][190]   [188][146][187][144]  [173][174]";
220 PRINT"[221]      [173][177][177][189][173][189][173][189][173][177][177][189][173][177][177][189][173][177][177][189]   [188]   [146][190][144]    [221]";
230 PRINT"[173][174] [176][178][178][174][176][174][176][174][176][178][178][174][176][178][178][174][176][174]  [176][178][178][174]       [146][144]    [176][189]";
240 PRINT" [146][221] [221][221][221][221][221][221][221][221][173][189][221][221][173][189][221][221][221][221]  [221][221][173][189]       [146][144]    [221] [146]";
250 PRINT" [146][221] [221][171][177][189][221][221][221][221][176][178][177][189][176][178][177][189][221][221]  [221][171][192]   [172][190]   [188][146][187][144]  [221] [146]";
260 PRINT"[176][189] [221][221]  [221][221][221][221][221][221][176][174][221][221][176][174][221][221][176][174][221][221][176][174] [190]       [188][146][144] [173][174]";
270 PRINT"[221]  [173][189]  [173][177][177][189][173][177][177][189][173][177][177][189][173][177][177][189][173][177][177][189] [187]       [172][146][144]  [221]";
280 PRINT"[221]  [176][192][192][192][174]  [176][192][192][192][174]  [176][192][192][192][192][174]  [176][192][192][192][174]  [176][192][192][192][174]  [221]";
290 PRINT"[173][192][192][189]   [146][173][192][192][189]   [146][173][192][192][189]    [146][173][192][192][189]   [146][173][192][192][189]   [146][173][192][189][157][148][192]";
299 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
300 TQ=0:POKE53370,0
302 TQ=TQ+1:GETA$:IFA$=""ANDTQ<200THEN302
304 POKE53371,0
310 :
320 REM  INSTRUCTION SCREEN
330 :
340 PRINT"[147][144]      [170][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][180]      [146]";
350 PRINT"[176][192][192][192][192][192][192][189] [211][201][216] [208][193][215][206][211] [195][200][197][211][211] [208][213][218][218][204][197][144] [173][192][192][192][192][192][192][174]";
360 PRINT"[144] [212]O BEGIN,  THREE BLACK PAWNS AND THREE
370 [153]" WHITE PAWNS ARE  POSITIONED  ON EITHER
380 PRINT" END OF A ONE BY SEVEN GAMEBOARD GRID.
390 [153]"     ORTANTANTAN=TANTANTAN=TANTANTAN=TANTANTANTAN=TANTANTAN=TANTANTAN=TANTANTAN^
400 PRINT"     [221][144][172] [146][187][221][144][172] [146][187][221][144][172] [146][187][221]    [221][172] [146][187][221][172] [146][187][221][172] [146][187][221]
410 [153]"     (null)STOP* WAITRND(null)STOP* WAITRND(null)STOP* WAITRND(null)    (null)* WAITRND(null)* WAITRND(null)* WAITRND(null)
420 PRINT"     [173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189][144]
430 [153]" (null)HE THREE BLACK PAWNS ARE PERMITTED TO
440 PRINT" MOVE  ONLY TO THE RIGHT  AND THE THREE
450 [153]" WHITE PAWNS ARE PERMITTED TO MOVE ONLY
460 PRINT" TO THE LEFT.   [208]AWNS MAY SLIDE INTO AN
470 [153]" ADJACENT  EMPTY CELL  OR JUMP OVER ONE
480 PRINT" ADJACENT PAWN OF OPPOSITE COLOR INTO A
490 [153]" FOLLOWING EMPTY CELL.
500 PRINT" [212]HE GOAL IS TO EXCHANGE  THE POSITIONS
510 [153]" OF THE SIX PAWNS  WITH THE BLACK PAWNS
520 PRINT" ENDING ON THE RIGHT SIDE AND THE WHITE
530 [153]" PAWNS ENDING ON THE LEFT SIDE.
540 PRINT" [208]RESS ANY KEY TO BEGIN.";
542 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
550 POKE198,0:WAIT198,1:GETS$:POKE198,0
560 :
570 REM  GAMEBOARD SCREEN
580 :
590 PRINT"[147]";:POKE53281,0:POKE53280,10
592 DV=PEEK(186):IFDV<8THENDV=8
600 M=0:C(0)=2:FORI=1TO3:C(I)=1:C(I+4)=-1:NEXT:C(4)=0:C(8)=2
610 PRINT"[147][158]        [176][192][174][178][176][174][174]  [176][192][174][176][192][174][176] [174][176][174][174][176][192][174]        ";
620 PRINT"        [173][192][174][221][176][219][189]  [171][192][189][171][192][179][221][221][221][221][221][221][173][192][174]        ";
630 PRINT"        [173][192][189][177][173][173][189]  [173]  [173] [189][173][177][189][173][173][189][173][192][189]
640 [153]" DEF ORTANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTAN^ "
650 [153]" DEF (null)1   DEFWAIT(null)2   DEFWAIT(null)3   DEFWAIT(null)4   DEFWAIT(null)5   DEFWAIT(null)6   DEFWAIT(null)7   DEFWAIT(null)"
660 [153]" DEF (null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)"
670 [153]" DEF (null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)    DEFWAIT(null)"
680 [153]" DEF /TANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTANEXP"
690 [153]"            (null)OVE (null)UMBER:"
700 [129]I[178]1[164]7:[153]"DEF                                        WAIT";:[130]
702 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
704 [151]214,17:[153]:[153]"DEF            (null)RESS (null) TO (null)UIT
710 S$="                                       "
720 :
730 REM  SPRITE CREATION
740 :
750 S=53248:FORI=0TO62:READN:POKE832+I,N:NEXT
760 FORI=2040TO2047:POKEI,13:NEXT
770 FORI=1TO3:POKES+39+I,0:POKES+43+I,1:NEXT
780 FORI=3TO15STEP2:POKES+I,92:NEXT
790 FORI=2TO12STEP2:POKES+I,12+I*20:NEXT
800 POKES+16,128:POKES+14,36
810 POKES+29,0:POKES+23,0:POKES+21,238
820 :
830 REM  INPUT MOVE COLOR
840 :
850 M=M+1:P=1449:GOSUB1240:PRINT""M
860 P=1824:GOSUB1240:FORI=1TO4:PRINTS$:NEXT
870 P=1834:GOSUB1240:PRINT"[154][205]OVE [195]OLOR ([194][154]/[215][154]):  [157]";:GOSUB1310:C$=G$
880 IFC$="W"ORC$="[215]"THEN940
890 IFC$="B"ORC$="[194]"THEN1090
900 GOTO860
910 :
920 REM  INPUT WHITE MOVE
930 :
940 POKE198,0:P=1864:GOSUB1240:PRINTS$:P=1874:GOSUB1240:PRINT"[154][205]OVE [198]ROM:  [157]";
950 GOSUB1310:F$=G$:WF=VAL(F$):IFWF<1ORWF>7THEN940
960 IFC(WF)<>-1THEN940
970 POKE198,0:P=1904:GOSUB1240:PRINTS$:P=1914:GOSUB1240:PRINT"[154][205]OVE [212]O:  [157]";
980 GOSUB1310:T$=G$:WT=VAL(T$):IFWT<1ORWT>7THENP=1944:GOSUB1240:PRINTS$:GOTO940
990 IFWT=WF-1ANDC(WT)=0THEN1020
1000 IFWT=WF-2ANDC(WT)=0ANDC(WF-1)=1THEN1020
1010 P=1952:GOSUB1240:PRINT"    [205]OVE [206]OT [208]OSSIBLE    "
1012 POKE53370,0:FORI=0TO1000:NEXT:POKE53371,0
1014 GOTO860
1020 C(WF)=0:POKES+21,PEEK(S+21)AND(255-2^WF)
1030 C(WT)=-1:POKES+39+WT,1:POKES+21,PEEK(S+21)OR(2^WT)
1040 GOSUB1470:GOSUB1390:IFF=1THEN850
1050 GOTO1500
1060 :
1070 REM  INPUT BLACK MOVE
1080 :
1090 POKE198,0:P=1864:GOSUB1240:PRINTS$:P=1874:GOSUB1240:PRINT"[154][205]OVE [198]ROM:  [157]";
1100 GOSUB1310:F$=G$:BF=VAL(F$):IFBF<1ORBF>7THEN1090
1110 IFC(BF)<>1THEN1090
1120 POKE198,0:P=1904:GOSUB1240:PRINTS$:P=1914:GOSUB1240:PRINT"[154][205]OVE [212]O:  [157]";
1130 GOSUB1310:T$=G$:BT=VAL(T$):IFBT<1ORBT>7THENP=1944:GOSUB1240:PRINTS$:GOTO1090
1140 IFBT=BF+1ANDC(BT)=0THEN1170
1150 IFBT=BF+2ANDC(BT)=0ANDC(BF+1)=-1THEN1170
1160 P=1952:GOSUB1240:PRINT"    [205]OVE [206]OT [208]OSSIBLE    "
1162 POKE53370,0:FORI=0TO1000:NEXT:POKE53371,0
1164 GOTO860
1170 C(BF)=0:POKES+21,PEEK(S+21)AND(255-2^BF)
1180 C(BT)=1:POKES+39+BT,0:POKES+21,PEEK(S+21)OR(2^BT)
1190 GOSUB1470:GOSUB1390:IFF=1THEN850
1200 GOTO1500
1210 :
1220 REM  CURSOR POSITION SUBROUTINE
1230 :
1240 P=P-1024:PRINT"";:PY=INT(P/40):PX=P-40*PY
1250 IFPY<>0THENFORR=1TOPY:PRINT"";:NEXT
1260 IFPX<>0THENFORR=1TOPX:PRINT"";:NEXT
1270 P=P+1024:RETURN
1280 :
1290 REM  GET SUBROUTINE
1300 :
1310 POKE198,0:PRINT"";
1320 POKE204,0:POKE207,0
1330 GETG$:IFG$=""THEN1320
1332 IFG$="Q"THENPOKE204,1:GOTO1520
1340 IFG$="B"THENG$="[194]"
1342 IFG$="W"THENG$="[215]"
1350 PRINTG$:POKE204,1:RETURN
1360 :
1370 REM  MOVE CHECK SUBROUTINE
1380 :
1390 F=0:FORI=1TO6:IFC(I)=1ANDC(I+1)=0THENF=1:I=6:GOTO1430
1400 IFC(I)=1ANDC(I+1)=-1ANDC(I+2)=0THENF=1:I=6:GOTO1430
1410 IFC(I+1)=-1ANDC(I)=0THENF=1:I=6:GOTO1430
1420 IFC(I+1)=-1ANDC(I)=1ANDC(I-1)=0THENF=1:I=6
1430 NEXT:RETURN
1440 :
1450 REM  GAME CHECK SUBROUTINE
1460 :
1470 IFC(1)=-1ANDC(2)=-1ANDC(3)=-1ANDC(5)=1ANDC(6)=1ANDC(7)=1THEN1490
1480 RETURN
1490 P=1874:GOSUB1240:PRINT"[195]ONGRATULATIONS!":GOTO1510
1500 P=1874:GOSUB1240:PRINT"[206]O [205]ORE [205]OVES [208]OSSIBLE!"
1510 P=1834:GOSUB1240:PRINTS$:P=1904:GOSUB1240:PRINTS$
1520 POKE198,0:P=1952:GOSUB1240
1522 PRINT"[154](1[154]) [193]GAIN  (2[154]) [212]O [209][213][193][210][212][207]
1524 [151]198,0
1526 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]1526
1528 [151]S[170]21,0:[139]A$[178]"1"[167][138]590
1530 [137]4000
1560 :
1570 [143]  SPRITE DATA
1580 :
1590 [131] 0,24,0,0,60,0,0,126,0,0,126,0,0,60,0,0,126,0,0,255,0,3,255,192
1600 [131] 0,255,0,0,126,0,0,126,0,0,126,0,0,126,0,0,126,0,0,126,0,0,255,0
1610 [131] 3,255,192,15,255,240,31,255,248,31,255,248,15,255,240
4000 [153]"LOAD":[151]53281,0
4010 [151]214,12:[153]:[153][163]8)"OPEN(null)OADING LENLEFT$VAL(null)(null) (null)(null)ATN(null)(null)(null)"
4020 [153]"STOP LOAD"[199](34)"B.CHESS QUARTO"[199](34)","DV
4030 [153]" RUN"
4040 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"SIX PAWNS":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]